clean_govt<-function(gps_data_merged){
  Sys.setlocale(locale="Romanian")
  eval(parse('clean_codes_county.R', encoding = 'UTF-8'))
  gps_data_merged<-clean_county(gps_data_merged)
  eval(parse('clean_codes_town.R', encoding = 'UTF-8'))
  gps_data_merged<-clean_town(gps_data_merged)
  eval(parse('clean_codes_school.R', encoding = 'UTF-8'))
  gps_data_merged<-clean_school(gps_data_merged)
  
  
  return(gps_data_merged)
  
}